home *** CD-ROM | disk | FTP | other *** search
/ Aminet 3 / Aminet 3 - July 1994.iso / Aminet / dev / lang / Forth.lha / Forth / Basic-Benchmarks / read < prev    next >
Encoding:
Text File  |  1994-04-04  |  168 b   |  11 lines
  1. t=TIMER
  2. 300 NR=512
  3. 320 OPEN "ram:TEST" FOR INPUT AS #1
  4. 340 FOR I=1 TO NR
  5. 360 B$=INPUT$(128,1)
  6. 380 NEXT I
  7. 400 CLOSE
  8. t=TIMER-t
  9. 420 PRINT "Done in ";t;" seconds"
  10. input a$
  11.